﻿Public Class Login
    Inherits System.Web.UI.Page


    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

        seguridad.usuarionick = ""
        seguridad.contraseña1 = ""
        seguridad.nivelusuario = 0
        seguridad.departamento1 = 0
        seguridad.empresa1 = 0
        seguridad.usuarioid1 = 0
        seguridad.usuaronombrecompleto1 = ""


    End Sub

    Protected Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click
        'Seguridad.nivelusuario = 1

        If txtusuario.Text = "" And txtcontraseña.Text = "" Then
            Label1.Text = "Ingrese su usuario y contraseña"
            Return
        End If



        Try
            Dim queryuser1 As String = String.Format("SELECT ""usuarios"".""usuariologin"",""usuarios"".""usuariopass"",  ""usuarios"".""rangoid"",""usuarios"".""departamentoid"", ""usuarios"".""empresaid"",""usuarios"".""usuarioid"",""usuarios"".""usuarionombrecompleto""  FROM  public.usuarios where ""usuariologin""='{0}' and ""usuariopass""='{1}' and ""empresaid""={2}", txtusuario.Text, txtcontraseña.Text, comboempresa.SelectedValue)
            Dim con As New Devart.Data.PostgreSql.PgSqlConnection(seguridad.conexion) ' hacemos la conexion , pero la traemos desde clase seguridad
            Dim Ejec1 As New Devart.Data.PostgreSql.PgSqlCommand(queryuser1, con) ' creamos una variable para el query con la conexion 
            con.Open()  ' abrimos la conexion

            Dim registro As Devart.Data.PostgreSql.PgSqlDataReader = Ejec1.ExecuteReader ' leemos el query usuarui
            ' sacamos del query el nivel del usuario y lo mentemos a esa variable para luego evaluarla

            'CUANDO ES UN USUARIO

            If registro.Read() = True Then

                seguridad.usuarionick = Convert.ToString(registro.GetPgSqlText(0)) 'usuario1
                seguridad.contraseña1 = Convert.ToString(registro.GetPgSqlText(1))  'contraseña1
                seguridad.nivelusuario = Convert.ToString(registro.GetPgSqlText(2)) 'idrango1
                seguridad.departamento1 = Convert.ToString(registro.GetPgSqlText(3))  'departamento1
                seguridad.empresa1 = Convert.ToString(registro.GetPgSqlText(4))  'seguridad.empresa1
                seguridad.usuarioid1 = Convert.ToString(registro.GetPgSqlText(5)) 'usuario id
                seguridad.usuaronombrecompleto1 = Convert.ToString(registro.GetPgSqlText(6))  'nombre



                If (seguridad.nivelusuario = 1) Then
                    System.Web.HttpContext.Current.Response.Redirect("~/Inicio/inicioA.aspx")
                    registro.Close()
                End If

                'empleado
                If (seguridad.nivelusuario = 2) Then
                    '  MsgBox(Convert.ToString(registro.GetPgSqlText(6)))
                    System.Web.HttpContext.Current.Response.Redirect("~/Inicio/Inicio.aspx")
                    registro.Close()

                End If

                'técnico
                If (seguridad.nivelusuario = 3) Then
                    '  MsgBox(Convert.ToString(registro.GetPgSqlText(6)))
                    System.Web.HttpContext.Current.Response.Redirect("~/Inicio/InicioT.aspx")
                    registro.Close()

                End If


                If (seguridad.nivelusuario = 4) Then
                    '  MsgBox(Convert.ToString(registro.GetPgSqlText(6)))
                    System.Web.HttpContext.Current.Response.Redirect("~/Inicio/InicioJ.aspx")
                    registro.Close()

                End If
            Else
                Label1.Text = "Datos incorrectos verifique sus credenciales"
            End If

        Catch ex As Exception

        End Try
        
        
    End Sub

    

    Protected Sub comboempresa_TextChanged(ByVal sender As Object, ByVal e As EventArgs) Handles comboempresa.TextChanged
       
    End Sub

    
End Class